home *** CD-ROM | disk | FTP | other *** search
/ Workbench Design / WB Collection.iso / workbench werkzeuge / memory & system tools / vmm / installvmm / svenska < prev    next >
Text File  |  1996-04-07  |  14KB  |  411 lines
  1. ; VMM Installer script by Martin Apel
  2. ; Installation script for VMM 3.3
  3.  
  4. (set @app-name "VMM")
  5.  
  6. (welcome "        Välkommen till VMM-installeraren\n\n"
  7.          "       Virtuellt minne för Amigor med MMU\n\n"
  8.          "        Upphovsrätt 1993-95 av Martin Apel\n\n"
  9.          "Nybörjare  installerar allt utom utvecklarfilerna.\n"
  10.          "Avancerad  installerar allt utan konfirmering.\n"
  11.          "Expert     installerar allt med konfirmering av allt.\n")
  12.  
  13. (if (= 0 @user-level) ; then
  14.     (set install_level %000111)
  15. ;else
  16.     (set install_level (askoptions (prompt "Vad vill du installera?")
  17.                                    (help   @askoptions-help)
  18.                                    (choices "VMM" "Symboler" "Dokument" "Utvecklarfiler" "Verktyg" "Rexx-program")))
  19. )
  20.  
  21. (set def_help "\n\nOm du behöver mer hjälp, var god se \"VMM.guide\"\n\n")
  22.  
  23. (set my_level @user-level)
  24. (user 2)
  25. (set vmmdest
  26.     ;get destination directory for "VMM"
  27.      (askdir (prompt "Välj den låda där du vill placera VMM-programmet (och verktygen).")
  28.              (help   "Det här bör vara en låda där du lätt kan komma åt VMM "
  29.                      "via Workbench eller ett skal." def_help
  30.                      @askdir-help)
  31.              (default @default-dest)
  32.              (disk)
  33.      )
  34. )
  35. (user my_level)
  36.  
  37. (set copy_vmm   (BITAND %000001 install_level))
  38. (set copy_icons (BITAND %000010 install_level))
  39. (set copy_docs  (BITAND %000100 install_level))
  40. (set copy_dev   (BITAND %001000 install_level))
  41. (set copy_tools (BITAND %010000 install_level))
  42. (set copy_rexx  (BITAND %100000 install_level))
  43.  
  44. ; Copy VMM files
  45.  
  46. (if copy_vmm
  47.   (
  48.     (set @default-dest vmmdest)
  49.     (set vmmtacked (tackon vmmdest "VMM"))
  50.  
  51.     ; ask, if we want to overwrite the old VMM if it exists
  52.     (set overwrite 1)
  53.     (if (exists "L:VMM-Handler")
  54.       (
  55.         (set old_version (getversion "l:VMM-Handler"))
  56.         (set old_ver (/ old_version 65536))
  57.         (set old_rev (- old_version (* old_ver 65536)))
  58.  
  59.         (set new_version (getversion "/l/VMM-Handler_4K"))
  60.         (set new_ver (/ new_version 65536))
  61.         (set new_rev (- new_version (* new_ver 65536)))
  62.  
  63.         (set overwrite (askbool (prompt "\nDu har redan VMM "
  64.                                          old_ver "." old_rev " installerad"
  65.                                         ".\nVill du skriva över den med VMM "
  66.                                          new_ver "." new_rev " ?\n")
  67.                                 (help def_help @askbool-help)
  68.                                 (default 1)
  69.                                 (choices "Ja" "Nej"))
  70.  
  71.         )
  72.       )
  73.     )
  74.  
  75.     (if overwrite
  76.         (
  77.            ; detect the pagesize (4K or 8K)
  78.            (set pagesize (run "/tools/ShowPageSize"))
  79.  
  80.            (select pagesize
  81.              (abort "Internt fel i installerar-programmet")
  82.              ((set info_string "En sidstorlek på 4K går att använda på ditt system")
  83.               (set default_choice 0))
  84.              ((set info_string "En sidstorlek på 4K går att använda på ditt system")
  85.               (set default_choice 1))
  86.              ((set info_string "Du kan ha antingen 4K eller 8K som sidstorlek på ditt system")
  87.               (set default_choice 0))
  88.            )
  89.  
  90.            (set my_choice (askchoice (prompt "\nVar god välj sidstorlek:\n\n"
  91.                                            info_string ".\n")
  92.                                    (help   def_help @askchoice-help)
  93.                                    (choices "4K" "8K")
  94.                                    (default default_choice))
  95.            )
  96.  
  97.            (select my_choice
  98.             (set sizestr "4K")
  99.             (set sizestr "8K")
  100.            )
  101.  
  102.            ; copy the new VMM file to the destination directory
  103.            (if copy_icons
  104.               ; then
  105.                 (copyfiles (prompt ("\nKopierar VMM till %s." vmmdest))
  106.                            (help   def_help @copyfiles-help)
  107.                            (optional "oknodelete")
  108.                            (optional "askuser")
  109.                            (source "/")
  110.                            (choices  "VMM")
  111.                            (dest     vmmdest)
  112.                            (infos)
  113.                            (confirm)
  114.                 )
  115.               ; else
  116.                 (copyfiles (prompt ("\nKopierar VMM till %s." vmmdest))
  117.                            (help   def_help @copyfiles-help)
  118.                            (optional "oknodelete")
  119.                            (optional "askuser")
  120.                            (source "/")
  121.                            (choices  "VMM")
  122.                            (dest     vmmdest)
  123.                            (confirm)
  124.                 )
  125.            )
  126.  
  127.            ; copy the catalog for VMM
  128.            (copyfiles (prompt "\nKopierar VMM.catalog till Locale:catalogs/svenska.")
  129.                       (help   def_help @copyfiles-help)
  130.                       (optional "oknodelete")
  131.                       (optional "askuser")
  132.                       (source  "/catalogs/svenska/VMM.catalog")
  133.                       (dest    "LOCALE:catalogs/svenska")
  134.                       (confirm)
  135.            )
  136.  
  137.  
  138.  
  139.            ; copy the new VMM-Handler file to l: and rename it as "VMM-Handler"
  140.            (set handler_name (cat "/l/VMM-Handler_" sizestr))
  141.            (copyfiles (prompt "\nKopierar VMM-Handler till L:.")
  142.                       (help   def_help @copyfiles-help)
  143.                       (optional "oknodelete")
  144.                       (optional "askuser")
  145.                       (source  handler_name)
  146.                       (dest    "l:")
  147.                       (newname "VMM-Handler")
  148.                       (confirm)
  149.            )
  150.  
  151.            ; copy the catalog for the VMM-handler
  152.            (copyfiles (prompt "\nKopierar VMM-Handler.catalog till Locale:catalogs/svenska.")
  153.                       (help   def_help @copyfiles-help)
  154.                       (optional "oknodelete")
  155.                       (optional "askuser")
  156.                       (source  "/catalogs/svenska/VMM-Handler.catalog")
  157.                       (dest    "LOCALE:catalogs/svenska")
  158.                       (confirm)
  159.            )
  160.         )
  161.      )
  162.  
  163.  
  164.  
  165.     ; ask, if we want to overwrite the old preferences file
  166.     ; default: do overwrite preferences file
  167.     (set overwrite 1)
  168.     (if (exists "envarc:VMM.prefs")
  169.         (if (= 0 (askbool (prompt "\nDu har redan en inställningsfil installerad.\nVill du skriva över den?\n\n")
  170.                      (help "Om du inte skriver över inställningsfilen så kommer den att konverteras i nästa steg" @askbool-help)
  171.                      (default 0)
  172.                      (choices "Ja" "Nej")))
  173.               (set overwrite 0)
  174.         )
  175.     )
  176.  
  177.     (if overwrite
  178.       (
  179.         ; copy the new preferences file to env: and envarc:
  180.         (copyfiles (prompt ("\nKopierar VMM.prefs till Env:\n"))
  181.                    (help   def_help @copyfiles-help)
  182.                    (optional "oknodelete")
  183.                    (optional "askuser")
  184.                    (source  "/env/VMM.prefs")
  185.                    (dest    "env:")
  186.                    (confirm)
  187.         )
  188.         (copyfiles (prompt ("\nKopierar VMM.prefs till EnvArc:\n"))
  189.                    (help   def_help @copyfiles-help)
  190.                    (optional "oknodelete")
  191.                    (optional "askuser")
  192.                    (source  "/env/VMM.prefs")
  193.                    (dest    "envarc:")
  194.                    (confirm)
  195.         )
  196.       )
  197.     ; else
  198.       (if (= 1 (askbool (prompt "Formatet på inställningsfilen har ändrats sedan V2.1\nVill du konvertera den?"
  199.                      (help def_help @askbool-help)
  200.                      (default 1)
  201.                      (choices "Ja" "Nej"))))
  202.         (run "/tools/ConvVMMCfg")
  203.       )
  204.     )
  205.   )
  206. )
  207.  
  208. ; Copy docs
  209.  
  210. (if copy_docs
  211.     (
  212.       ;get destination directory for "VMM.guide"
  213.       (set doc_dir (tackon vmmdest "doc"))
  214.  
  215.       (if (AND (= 0 @user-level) (NOT (exists doc_dir)))
  216.           ; then
  217.           (makedir doc_dir (infos))
  218.       )
  219.  
  220.       (set vmmdocs
  221.            (askdir (prompt "Välj den låda där du vill placera dokumenten och AmigaGuide-filerna.")
  222.                    (help   "Det här bör vara den låda där du normalt sett placerar dina AmigaGuide-filer.\n\n"
  223.                            def_help @askdir-help)
  224.                    (default doc_dir)
  225.                    (newpath)
  226.                    (disk)
  227.            )
  228.       )
  229.  
  230.       (if copy_dev
  231.         (if copy_icons
  232.            ; then
  233.            (copyfiles (prompt ("\nKopierar dokumentationen..."))
  234.                       (help   def_help @copyfiles-help)
  235.                       (optional "oknodelete")
  236.                       (optional "askuser")
  237.                       (source  "/doc")
  238.                       (choices "VMM.guide" "VMM_Rexx.guide" "VMMTools.guide" "VMM_lib.doc")
  239.                       (dest    vmmdocs)
  240.                       (infos)
  241.                       (confirm)
  242.            )
  243.            ; else
  244.            (copyfiles (prompt ("\nKopierar dokumentationen..."))
  245.                       (help   def_help @copyfiles-help)
  246.                       (optional "oknodelete")
  247.                       (optional "askuser")
  248.                       (source  "/doc")
  249.                       (choices "VMM.guide" "VMM_Rexx.guide" "VMMTools.guide" "VMM_lib.doc")
  250.                       (dest    vmmdocs)
  251.                       (confirm)
  252.            )
  253.         )
  254.       ; else
  255.         (if copy_icons
  256.             ; then
  257.               (copyfiles (prompt ("\nKopierar VMM.guide till " vmmdocs "."))
  258.                          (help   def_help @copyfiles-help)
  259.                          (optional "oknodelete")
  260.                          (optional "askuser")
  261.                          (source  "/doc")
  262.                          (choices "VMM.guide" "VMM_Rexx.guide" "VMMTools.guide")
  263.                          (dest    vmmdocs)
  264.                          (infos)
  265.                          (confirm)
  266.               )
  267.             ; else
  268.               (copyfiles (prompt ("\nKopierar VMM.guide till " vmmdocs "."))
  269.                          (help   def_help @copyfiles-help)
  270.                          (optional "oknodelete")
  271.                          (optional "askuser")
  272.                          (source  "/doc")
  273.                          (choices "VMM.guide" "VMM_Rexx.guide" "VMMTools.guide")
  274.                          (dest    vmmdocs)
  275.                          (confirm)
  276.               )
  277.         )
  278.       )
  279.     )
  280. )
  281.  
  282. ; Copy developer files
  283.  
  284. (if copy_dev
  285.     (
  286.       (copylib (prompt ("\nKopierar VMM.library till Libs:."))
  287.                (help   def_help @copyfiles-help)
  288.                (optional "oknodelete")
  289.                (optional "askuser")
  290.                (source  "/Developer/libs/VMM.library")
  291.                (dest    "libs:")
  292.                (confirm)
  293.       )
  294.  
  295.       (if (exists ("fd:") (noreq))
  296.           ; then
  297.             (set fd_dir "fd:")
  298.           ; else
  299.             (set fd_dir
  300.                  (askdir (prompt "Välj den låda där du vill placera fd-filen.")
  301.                          (help   def_help  @askdir-help)
  302.                          (default "SYS:")
  303.                          (disk)
  304.                  )
  305.             )
  306.       )
  307.  
  308.       (if (exists ("include:") (noreq))
  309.           ; then
  310.             (set inc_dir "include:")
  311.           ; else
  312.             (set inc_dir
  313.                  (askdir (prompt "Välj den låda där du vill placera inkluderingsfilen.")
  314.                          (help   def_help  @askdir-help)
  315.                          (default "SYS:")
  316.                          (disk)
  317.                  )
  318.             )
  319.       )
  320.  
  321.       (if (exists ("lib:") (noreq))
  322.           ; then
  323.             (set lib_dir "lib:")
  324.           ; else
  325.             (set lib_dir
  326.                  (askdir (prompt "Välj den låda där du vill placera lib-filen.")
  327.                          (help   def_help  @askdir-help)
  328.                          (default "SYS:")
  329.                          (disk)
  330.                  )
  331.             )
  332.       )
  333.  
  334.  
  335.       (copyfiles (prompt ("\nKopierar VMM_lib.fd till " fd_dir "."))
  336.                  (help   def_help @copyfiles-help)
  337.                  (optional "oknodelete")
  338.                  (optional "askuser")
  339.                  (source  "/Developer/fd")
  340.                  (choices "VMM_lib.fd")
  341.                  (dest    fd_dir)
  342.                  (confirm)
  343.       )
  344.  
  345.       (copyfiles (prompt ("\nKopierar VMM_stat.h till " inc_dir "."))
  346.                  (help   def_help @copyfiles-help)
  347.                  (optional "oknodelete")
  348.                  (optional "askuser")
  349.                  (source  "/Developer/include")
  350.                  (choices "VMM_Stat.h")
  351.                  (dest    inc_dir)
  352.                  (confirm)
  353.       )
  354.  
  355.       (copyfiles (prompt ("\nKopierar VMM_lib.lib till " lib_dir "."))
  356.                  (help   def_help @copyfiles-help)
  357.                  (optional "oknodelete")
  358.                  (optional "askuser")
  359.                  (source  "/Developer/lib")
  360.                  (choices "VMM_lib.lib")
  361.                  (dest    lib_dir)
  362.                  (confirm)
  363.       )
  364.     )
  365. )
  366.  
  367. ; Copy tools
  368.  
  369. (if copy_tools
  370.   (
  371.   if copy_icons
  372.     ; then
  373.       (copyfiles (prompt ("\nKopierar verktygen till " vmmdest "."))
  374.                  (help   def_help @copyfiles-help)
  375.                  (optional "oknodelete")
  376.                  (optional "askuser")
  377.                  (source  "/tools")
  378.                  (choices "VMMStat" "VMMUsage" "VMMUsageCLI")
  379.                  (dest    vmmdest)
  380.                  (infos)
  381.                  (confirm)
  382.       )
  383.     ; else
  384.       (copyfiles (prompt ("\nKopierar verktygen till " vmmdest "."))
  385.                  (help   def_help @copyfiles-help)
  386.                  (optional "oknodelete")
  387.                  (optional "askuser")
  388.                  (source  "/tools")
  389.                  (choices "VMMStat" "VMMUsage" "VMMUsageCLI")
  390.                  (dest    vmmdest)
  391.                  (confirm)
  392.       )
  393.   )
  394. )
  395.  
  396. ;
  397.  
  398. ; Copy ARexx scripts
  399.  
  400. (if copy_rexx
  401.   (copyfiles (prompt ("\nKopierar ARexx-programmen till Rexx:"))
  402.              (help   def_help @copyfiles-help)
  403.              (optional "oknodelete")
  404.              (optional "askuser")
  405.              (source  "/rexx")
  406.              (choices "stat_on.vmm" "stat_off.vmm" "show.vmm" "hide.vmm")
  407.              (dest    "REXX:")
  408.              (confirm)
  409.   )
  410. )
  411.